ensure name of a thread is a string

diff --git a/src/thread.c b/src/thread.c
index 8fa43dd57f2e6883724e9fe93ed525aa308ec862..b8ffb0662c30ca7cf01e556901c664793916e285 100644 (file)
--- a/src/thread.c
+++ b/src/thread.c
@@ -661,6 +661,9 @@ If NAME is given, it names the new thread.  */)
   if (!initialized)
     abort ();
 
+  if (!NILP (name))
+    CHECK_STRING (name);
+
   new_thread = ALLOCATE_PSEUDOVECTOR (struct thread_state, m_gcprolist,
                                      PVEC_THREAD);
   memset ((char *) new_thread + offsetof (struct thread_state, m_gcprolist),